Public Sub Set_NewTree()
        Dim node_letter As String
        tvTreeView.Nodes.Clear()
'Set the Document Type
        tvTreeView.Nodes.Add("PhoneBook")
'Set the Documents
        tvTreeView.SelectedNode = tvTreeView.Nodes.Item(0)
        tvTreeView.ExpandAll()
        tvTreeView.ShowLines = True
        tvTreeView.ShowPlusMinus = True
        For I = 1 To 26
            node_letter = Chr(64 + I)
            tvTreeView.SelectedNode.Nodes.Add(node_letter)
        Next I
End Sub
